From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 5 Mar 2003 16:33:42 +0000 (+0000)
Subject: (x-handle-geometry): Put sizes on `initial-frame-alist' too.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~53083
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0ebcabe7441957535dd9e5e947df7478bcf63224;p=emacs.git

(x-handle-geometry): Put sizes on `initial-frame-alist' too.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7b3ff9f466..d949e91ee8b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2003-03-05  Juanma Barranquero  <lektu@terra.es>
 
+	* term/w32-win.el (x-handle-geometry): Put sizes on
+	`initial-frame-alist' too.
+
+	* startup.el (command-line-x-option-alist): Make --border-color set
+	the border-color frame parameter, not border-width.
+
 	* faces.el (frame-set-background-mode): Fix reference to attribute
 	"backgroundMode".
 
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 7f39eaab5db..565f9a6b5b5 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -204,6 +204,11 @@ the last file dropped is selected."
     (if (or height width)
 	(setq default-frame-alist
 	      (append default-frame-alist
+		      '((user-size . t))
+		      (if height (list height))
+		      (if width (list width)))
+	      initial-frame-alist
+	      (append initial-frame-alist
 		      '((user-size . t))
 		      (if height (list height))
 		      (if width (list width)))))